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PC-36 SOFTWARE DFUVER 



The attached listing of a Tape Driver Program can be used as an aid for programmers 
attempting to v/rite "Software Driver Programs" for WANGTEK PC-36 Controller 
Boards. The PC-36 Controller is designed to interface the basic quarter inch tape drive 
to IBM-PC, IBM-XT, IBM-AT computers and their compatibles. 

In addition, the attached Driver Program is useful in writing software driver programs to 
support other operating systems, such as Xenix, Unix, CP/M-86 etc. 

There are three main subroutines called in by the Software Driver (TDRIVER.C) 
Program. They are "Writedata", "Readdata", and "Initialize". 

WRTTEDATA - The following commands take place in this subroutine: 





1. Reset 




2. Read Status 




3. Rewind to BOT 




4. Write 




5. Write filemark 




6. End Write (This drops "Online" and rewinds the tape to BOT) 


READDATA • 


- The following commands take place in this subroutine; 




1. Reset 




2. Read Status 




3. Rewind to BOT 




4. Read 




5. End Read 


INTIALEE 





This subroutine initializes the interrupt vector table to interrupt request address three. 
Anytime any exception is asserted by the drive, the program will read status, display the 
status message and then exit the program. 
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.cw8 

.lh7 
/iiiiiiitit************************************************************************^ 

**/ 

**/ 

**/ 

**/ 

**/ 

**/ 

**/ 

**/ 



TCRIVER.C 

Tony Sotery 

08/03A985 

lliis program will perfonn as a driver program. 

The purpose of the program is to perfonn tape 

drive operation and data transfer To and Frcm 

the tape. 

Version 1.00 

y********* ************************************ ********************************/ 

finclude <3tdio.h> 



/** Program name: 

/** Author: 

/** Creation date 

/** Description: 

/** 

/** 

/** 

/** Revision History: 



/* 

/* 'Oys definition below provides the tape drive exception status 

#def ine FILEMARK 0X0001 

#def ine BIEKL 0X0002 

#def ine UDE 0X0004 

#def ine EOT 0X0008 

#def ine »«ITE_F«OT 0X0010 

#def ine M3T_CN_LINE 0X0020 

#def ine VDJIPRSRWCE 0X0040 

#def ine EXO 0X0080 

#def ine RESOT 0X0100 

#def ine BOT 0X0800 

#def ine M)_DA!IA 0X2000 

#define ILLBGALJM) 0X4000 

»def ine EXl 0X8000 

#def ine BLKSIZE 512 

#def ine BUFSIZE 16 * BliCSIZE 



#def ine SIATLSREG 0x300 
#def ine BEADY 
#def ine EXCEP 

char buf[aJFSIZE]; 



0x01 
0x02 



/* eafdi block is 512 bytes */ 
/* buffer size is 8 kbytes */ 

/* Status register address */ 
/* ready bit define */ 
/* exception bit define */ 



-V 

V 
.*/ 



/* the buffer to used 



V 



/* initialize the program by setting the interrupt */ 
/* write data fran the manory to the t^je */ 
/* read data f ran the meoory to the tape */ 



main() 

initialize (); 
writedata( ) ; 
readdata(); 

/*****************************************************************************/ 
/** Boutdne name: writedata **/ 

/** Description: write data frcm the memory buffer to the tape **/ 

/** Author: Tiwiy Sotery **/ 

/** Date: 08/06/1985 **/ 

/** Called by: main **/ 

/** Calls: Assenbly code or error reporting routines **/ 

/*****************************************************************************/ 

writedata ( ) 



int srb[33; 
int i; 

if / ^ raeat- 1 \ \ 
'■'■ \—_-^-'^ — \ I I 

error(l); 
if (rdstatus(srb)) 
error (2); 



/* three status word register array 



"/ 



reperr(srb[0],FIIlMARK | BIEHi 



/* reset the t^e delve */ 
/* report ccmnand did not go through */ 
/* read the status registers */ 

/* report any of the following errors */ 
I UDE T BCfT I WRITE PHOT | NOT CN LINE 



NO CAPraiDGE I ND DATA | ILIEGAL CMD) ; 
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if (rwiralO) /* rewind the tape to BCfT */ 

error (3); 
if (rdyexcO) 

if (rdstatus(srb)) 
error (2) , • 

reperr(srb[OhFIIS«RK | BIEtt | UDE | BOT | WRITE_PHOT | NOT_CN_LINE 
I NO CABTRIDCS: | RESEH: I KD QAiTA | ILIEGAL CMD) ; 

} ~ " " 

pr in tf ("Writing Data To 1^pe\n"); 

if (wstartO) /* start write c^ration */ 

error (4); 
for (i=0;i<100;i-H-) /* write 1600 blocks */ 

{ 

wtape(buf,16); /* perform the write operation */ 

if (rdyexcO) 

if (rclstatus(srb)) 

error (2); 
r^«rr(srb[01,FILEMARK | BiaJL | IDE | BOT | wmEJRDT | NCfTJDNLIlE 
I NOjCARmiDGE | RESE7 | BOT j NO_QKrA | ILLEIGALCMD) ; 

} 
if (wniarkO) /* write file nark at the end of data written */ 

error (6); 
if (rdyexcO) 
{ 
if (rdstatus(srb)) 

error(2); 
reperr(srb[0],FILEMARK | BIQt | UDE | BOT | WRIIEJPHOT 1 NOT_CN_LINE 
I NO_CARrRIDGE | BISET | BOT ! NDJMaa | ILIHSRLJMD) ; 

if (wendO) /* end the write c^eration by dropping online */ 

error (5); 
if (rdyexc()) /* r^xsrt if ary error occured */ 

if (rdstatus(srb)) 

error (2); 
reperr(srb[0],FIIfllAHK | BOWL | UDE | BOT | WRITEJPBOT | NOT_CN_LINE 
I NOjaRraiDGE I RESET | BOT 1 NDJMTA | HlflGALja©); 

} 

y*****************************************************************************/ 

/** Routine name: readdata **/ 

/** DescripticMi: read data fron the tape to the buffer **/ 

/** Authors Tony Sotery **/ 

/** DafcK 08/05/1985 **/ 

/** Callid by: main **/ 

/** Calls: Assembly code or error reporting routines **/ 

y*******ik*****************«********************* ************ **************«***/ 

readdata 

{ 

int srb(3]; /* status bytes register holder */ 

int i; 

if (t_reset()) /* reset the tape drive */ 

error(l); 
if (rdstatus(srb)) /* read status to clear reset exception */ 

error (2); 

/* raort the error condition */ 
reperr(srb[0],FII£MftRK | BIQC | UDE 1 BOT | NOTJWJLUE 
I NOJCARTRIDGE | NOJSKEA | IlI£CfkL_(X>) ; 
if ( rwind( ) ) /* rewind to the beginning of the tape */ 

error (3); 
if (rdyexcO) 
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{ 

if (rdstatus(srb)) 

error(2); 
reperr(srb[0],FILEMARK i BIINL | UEE | EOT | NOT CW_LINE 

I NO_CARIRIDGE | RESET | ^D_DftTA J ILLBGftL_a©) ; 

printf ("Reading Data From 'Dape\n"); 

if (rstartO) /* start the read operation */ 

error (7) ; 
for (i=0;i<100;i-H-) /* read 1600 blocks */ 

{ 

rtaEe(buf,16); /* perform the read operation */ 

if (rdyexcO) 

if (rdstatus(srb) } 

error (2); 
reperr(srb[0],FILEMARK | BIENL | UDE | EOT | NOTCN LINE 

I Nq_CARXRIDGE j RESET \ BOT | iC_DAXA J JLL£CMjJ3m) ; 

} 
if (rendO) /* end the read operation by dropping online */ 

error ( 8); 
if (rdyexcO) 

if (rdstatus(srb)) 
error(2); 



NOTJDNJLINE 

NOJQKm I III.B3AL_CIO); 



reperr(srb[0],ETLEMARK | BIENL | UDE ECfT 
I bOjZARORIDGE | RESET BCO? 

} 

/****« ************************************ ************************Vk***********^ 

/** Routine name: reperr **/ 

/** Description: report an error if any and exit **/ 

/** . **/ 

/** , **/ 

/** Author: Tony Sotery **/ 

/** Date: 3/5/85 **/ 

/** Parameters: srb **/ 

/*****************************************************************************/ 

reperr (srbO/S) 
int srbO,s; 

{ 

int i,sO; 

sO=srbO & s; /* find out whi^ exception to report */ 

/* */ 

/* report the given error if they occured */ 

/* V 

if (sO) 
{ 

i=22j 
if (SO & NOTJMLINE) 

printf ("Drive not ooline\n"); 
if (sO & NOJCRRTRIDGE) 

printf ("» cartridge\n"); 
if (sO & WRITEJWDT) 

printf ("Tape is write protected\n" ) ; 
if (sO & FILQttRK) 

pr intf ( "Filenark detected\n" ) ; 
if (sO & BHKL) 

printf ("Block in error not located\n"); 
if (SO & ODE) 

printf ("Unrecoverable data error\n"); 
if (sO & EOT) 

printf ("Eiv3 of tape\n"); 
if (sO 6 NOJATA) 

printf ("No data detected\n" ) ; 
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if (SO & RESET) 

printfCHeset occured\n" ) ; 
if (sO & BCfT) 

printf("Begining of tape\n"); 
if (SO & ILLEGALJMD) 

printf( "Illegal oanniand\n" ) ; 

exitO; /* exit the program */ 

} 

/**********************1HHHt**1t*******************1,**ic***1,****1,i,*it*-k****1,i,1c*i,i,i,/ 

/** Routine name: error **/ 

/** Description: print a message showing the error and exit **/ 

/** Author: Tbry Sotery **/ 

/** Date: 2/29/85 **/ 

/** Parameters: num: nimiaer of error that cccured **/ 

/it****************************************************************************/ 

error (num) 

int num; 

{ 

printf ("Command did not go through [%d]",nuHi); 

exitO; 

/** Routine name: rdyexc **/ 

/** Description; wait for ready or exo^ion and return the status **/ 
/** Author: Ttony Sotery **/ 

/** Date: 2/29/85 **/ 

/** Parameters: **/ 

^**************************«********************** ****************************/ 

rdyexc () 

int s; 

for ( ; ; ) /* loc^ until ready or excq)tion */ 

s=(ir?ortb(STR3WSRBG) & Oxff); /* read the status register */ 

if (l{s & EXCEP)) /* check if excq>ticn have occured */ 

break; 
if (!(s & READY)) /* check if controller is ready */ 

break; 
} 
return(!(s & EXCHP)); /* return exception if it occured */ 

^****************************************************************************/ 
/** Routine name: INITIALIZE **/ 

/** Description: Perform required program initialization **/ 

initializeO 

unsigned int isr(); 

unsigned int extraseg,dataseg,codeseg,offseg; 

struct {unsigned int cs,ss,ds,es;} rrv; 

segread(&rrv.cs); /* get the segnent value */ 

extraseg = rrv.es ; 
dataseg = rrv.ds ; 
oodese^ rrv.cs: 

isrinitO; /* save our "DS" in code segment of "ISl" */ 

outportb(0x21,(inportb(0x21) & 0xf7)); /* enable irq3 interrupt for the PC-36 controler */ 
offseg=isr; /* get the offset for interript service routine */ 

pokew(0x2c,0,offseg); /* set interrupt vector to interrupt service routine */ 

Dokewj 0x2e , , codeseg ) ; 
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****************************************************************************** 

** ** 

** TOLIB.DEF ** 

** ** 

** Tliis file contains all t±ie decl«u:ation and defines for file TOLlB.Aa* ** 
** and TULIBl.ASM ** 

****************************************************************************** 



statport 


equ 


300h 




; status port 


ctlport 


equ 


300h 




.•control port 


dataport 


equ 


301h 




;data port 


anchor t 


equ 


301h 




;cannand port 


ready 


equ 


1 




;rea<j^ bit 


excep 


equ 


2 




; exception bit 


dire 


equ 


4 




idirecticn bit 


OTiline 


equ 


1 




;online ccninand 


reset 


equ 


2 




; reset canmand 


request 


equ 


4 




; request canmand 


request_off 


equ 


Ofbh 




; request canmand off 


xfer 


equ 


lOh 




;xfer oomnand 


andoff 


equ 







; turns off ccnraand 


rddata 


equ 


08(»i 




;read data 


readfn 


equ 


OaOh 




;read file mark 


wrtdata 


equ 


040h 




;write data 


writefm 


equ 


oeoh 




;write file mark 


rdstat 


equ 


OcOi 




;read status ccmnand 


position 


equ 


02{»i 




;pcsition oonnand 


bot 


equ 


Olh 




; rewind to bot 


erase 


equ 


02h 




; erase t^e 


retention 


equ 


04h 




; retention tape 


eqdna 


equ 


8h 




; enable dna ocmnand 


/ 








ai=chl or ch2 


/ 








10h=ch3 


Chan 


equ 


1 




;dma diannel no. 


addreg 


equ 


02h 






wcreg 


equ 


03h 






pagereg 


equ 


83h 




;chl=83h, ch>82h ,ch2=81h 


andreg 


equ 


08h 






statusreg 


equ 


08h 






naskreg 


equ 


Oah 






modereg 


equ 


Obh 






clearff 


equ 


Och 






dnna_write 


equ 


48h+chan 




cina_read 


equ 


44h+chan 




wci dif 


? 








blksize equ 


512 




;block size 


t 

fail equ 


1 








success equ 











<±na_rdy equ 











not_rcty equ 


2 








sbs St rue 






;structure to hold six status bytes, return 


old bp dw 


? 




;old t^ 




retaddl dw 


7 




; return address 


sbl dw 


? 




; status 


bytel 


sb2 dw 


? 




; status 


byte2 


sb3 dw 


? 




; status 


byte3 


sb4 dw 


? 




; status 


byte4 


sb5 dw 


? 




; status 


bytes 


sb6 dw 


-> 




; status byte6 


sbs aids 
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args 
od bp 
retadl 


struc 

dw 

dw 


7 

7 


;1 


argl 
arg2 
arg3 
arg4 
argS 


dw 
dw 
dw 
dw 

dw 


7 

•> 
• 

7 
? 

? 




arg6 
arg7 
argS 
args 


dw 
dw 
dw 
ends 


• 

7 
7 




1 

@code 


ends 






@datab 


segment 






tnbits 




db 


? 


nuinblock 


dw 


7 


except io 

mnde 


dw 
dw 


? 
? 


bufptr 
stack 




dw 
dw 


7 
6 


@datab 


ends 







; structure to hold the paraneters that are 
;being passed. Old l^ 
.•return cKJdress 



map bits into each other 

nunblock to read or write 

exception variable 

dna operation node 

used as buffer pointer to data buffers 

initialize a stack 
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******il******^l*^l^c^,**^l*****^,■k^,1,1t^,^,^,^,1,*^t^,1,i,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^c^,^,^,^,1,i,^,^^^,^,^,^,^,^^^,J 



** Program Usae: 
** Author: 
** Creation date 
** Description: 

** Called by: 

** Calls: 

** Revision History: 






lULIB.ASI 

Tony Sotery 

12/14/84 **/ 

Tape drive controller caimand library **/ 

This module contains a libray of all the ocmnand**/ 

that can be sent to the t^se drive. **/ 

The "C" program. 



Version 2.00 






'/ 



**************************************************************************/ 



include 
include 
include 



\c86Vodels.h 
\c86Nprologue . h 
tulib.def 



@code 



segneit 

public 

public 

public 

public 

public 

public 

public 

public 

public 

public 

public 



byte public 'code' 



rstart 

rend 

nnark 

vstart 

wend 

vniekrk 

tension 

rwind 

t_erase 

rdstatus 

t reset 



start read 
end read 
read file mark 
start write 
end write 
write file mark 
re-tension tape 
rewinds tape 
erase tape 
reads status 
reset 



**************************************** 
start read - c function 

rstart () 



rstart proc 


near 




mov 


dx,statport 


;wait for ready 


rdex: in 


al,dx 




test 


al,excep 


;chk exception 


jz 


r_ab 


;end the proc 


test 


al, ready 


;is it reeMiy 


jnz 


rdex 


;loup if it is not ready 


mov 




;get the command port aiidress 


mov 


al,rddata 


;get the ccmnand 


out 


dx,al 


;output the oanmand to the port 


mov 


dx,ctlport 


;get control port address 


mov 


al, online 


;set online 


mov 


mbitSral 




out 


dx,al 


;send online 


nnll 


sendcmd 


;send the oonmand to the formatter 


mov 


ax, success 


;(^eration was successful 


ret 




;retuen to the caller 


r_ab: 




;abort operation 


mov 


ax, fail 


;operation failed 


ret 




;retun to the caller 


rstart endp 







**************************************** 
end read - c function 

rendO 



rend 


proc 


near 






mov 


dx,statport 


;wait for read' 


red: 


in 


al,dx 






test 


al,excep 


;chk exception 




jz 


nab 


;end the proc 




test 


al, ready 


;is it ready 
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jnz 



red 



;loop if it is not ready 



ret: 



nab: 



rend 



nov 


bx, success 




nov 


dx,ctlport 


; reset online 


mov 


al,cndc££ 




out 


dx,al 




nov 


ax,bx 


; return code 


ret 






nov 


bx,fail 




jng 


rret 




endp 







**************************************** 
read file mark - c function 

nnark( ) 



mark 


proc 


near 






tnov 


dxjStatport 


;wait for ready 


rm: 


in 


al,dx 






test 


al,excep 


;chk exception 




jz 


m_ab 


;end the proc 




test 


al, ready 


;is it ready 




jnz 


rm 


;locp if it is not rea(fy 




ncv 


dx,cndp3rt 


;read mark and 




mov 


al,readfm 






out 


dx,al 






nov 


dx,ctlport 


;set online 




mov 


al, online 






mov 


inbits,al 






out 


dx,al 






call 


sendand 






niuv 


dXfStatport 




rn: 










in 


al,dx 






test 


al,excep 






jnz 


rn 






mov 


ax, success 






ret 






m_ab: 










mov 
ret 


ax, fail 




rmark 


en<^ 







**************************************** 
start write - c futiction 



wstartO 



wstart 



wd: 



proc 


near 




mov 


dx,statport 


;wait for ready 


in 


al,dx 




test 


al,exc9 


;chk exertion 


jz 


w_ab 


;end the proc 


test 


al, ready 


;i3 it ready 


jnz 


vd 


jioop if it is not ready 


nov 


dx,cni3port 


;write data coid 


mov 


al,wrtdata 




out 


dx,al 




mov 


dXfCtlport 


;set online 


mov 


al, online 




mov 


mbits,al 




out 


dx,al 




call 


sendcmd 




mov 


ax, success 
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w ab: 



ret 
_ mov 

ret 
wstart erx^ 



ax, fail 



**************************************** 
end write - c function 

v«nd() 



wend 


proc 


near 






mov 


dx,statport 


;wait for ready 


ee: 


in 


al,dx 






test 


al,excep 


;chk exception 




jz 


e_err 


;end the proc 




test 


al, ready 


;is it ready 




jnz 


ee 


;loop if it is not ready 




nov 


bx, success 




eret: 


mov 


dXrCtlport 


; reset online 




mov 


al,cnidoff 






out 


dx,al 






mov 


al,4+chan 


; disable dna 




out 


niaskreg,al 






out 


clearff,al 






mov 


ax,bx 


; return ondp 




ret 






ejerr: 










mov 


hx,fail 






jup 


eret 




wend 


enc^ 







**************************************** 
write file nark - c function 



voiarkO 



wmark proc 
mov 

vm: in 

test 

test 

jnz 

mov 

mov 

out 

mov 

mov 

mov 

out 

call 

mov 

wn: 

in 

test 

jnz 

mov 

ret 

vni_ab: 

mov 
ret 

^«niark &idp 



near 

dx,stat^rt 

al,dx 

al,exc9 

viirab 

air ready 

vm 

dbccmdport 

eU.,write£m 

dx,al 

dx,ctlport 

al /Online 

iibitSral 

dx,al 

sendand 

dx,statport 

al,dx 

al, ready 

wn 

ax, success 



ax, fail 



;wait for ready 

;cl^ exception 

;end the proc 

;is it r^uiy 

;loop if it is not ready 

;write mark cmd 



;set c»iline 



>**************************************** 
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ra*inds tcpe - c function 
rwind( ) 



rwind 


proc 


near 






inov 


inbits,0 






nov 


dx,statport 


;wait for ready 


wiw: 


in 


al,dx 






test 


al,excep 


;chk exception 




jz 


wi_ab 


;end the proc 




test 


al, ready 


;is it ready 




jnz 


wiw 


;locp if it is not rea<^ 




mov 


dXrCndport 


;res^irKi csnd 




nov 


al,po6ition+bot 






out 


dx,al 






call 


sendand 






mov 


ax, success 






ret 






wi_ab: 










nov 
ret 


ax, fail 




rwind 


en(^ 







**************************************** 
tensions tape - c function 



tension( ) 



tension proc 
mov 
mov 

tiw: in 
test 

test 

jnz 

nov 

mov 

out 

call 

nov 

ret 

ti_ab: 

nov 
ret 

tension endp 



near 

nibits,0 

dx,statport 

al,dx 

al,exce{> 

ti_ab 

al, ready 

tiw 

dx,c3udpDrt 



al ,pc8ition+retention 

dx,al 

sendand 

ax, success 



ax, fail 



;wait for ready 

;chk exception 

;end the proc 

;is it ready 

;locp if it is not ready 

; tension cmd 



**************************************** 
ereBes tape - c function 



; t_erase( ) 




i 

t erase proc 


near 




mov 


mbits,0 




mov 


dx,statport 


;wait for ready 


eiw: in 


al,dx 




test 


al,excep 


;chk exception 


jz 


ei ab 


;end the proc 


test 


al,rea(fy 


;is it ready 


jnz 


eiw 

1 1 T - 1 


;loop if it is not ready 
;eratse end 


uuv 


ax,cnidport 


mov 


al,p08ition+erase 


out 


dx,al 




call 


sendcmd 




mov 


ax, success 




ret 
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ei_ab: 

nov 
ret 

-_erase endp 



ax, fail 



**************************************** 
reads status - c function 



rdstatus(srb) 
int srb[3] 



returns 6 status byte 



rdstatus proc near 

push bp 

mov fcPfSp 

tnov si,[bp].sbl 



nov 


c!x,statport 


;wait for reedy 


stva: in 


al,dx 




test 


al,excep 


;chk exertion 


jz 


stok 


;end the proc 


test 


al, ready 


;is it ready 


jnz 


StHB 


jloop if it is not ready 


stok: 






nov 


dXfCndport 




nov 


al,rdstat 




out 


dx,al 




call 


sendand 




nov 


ex, 6 


;get 6 bytes 


nxt_stat : 






sr: 






nov 


dx,statport 




in 


al,dx 




test 


al,excep 




jz 


wi_sr 




test 


al, ready 




jnz 


sr 




push 


ex 




nov 


dx,dataport 


;read stat byte 


in 


al,dx 




nov 


[si],al 




inc 


si 




ncv 


dx,ctlport 


;set request 


mov 


al, request 




or 


alfinbits 




out 


dx,al 




nov 


dx,statport 




in 


al,dx 




test 


al, ready 




J2 


se 




nov 

err* 


cx,80h 


;wait >20us 


aq. 

loop 


sq 




nov 


dx,ctlport 


; reset request 


nov 


al, request off 




and 


al,nU3its 




out 


dx,al 




nov 


dx,statport 


;next status 


pep 


oc 




loop 


iat_stat 




nov 


ax, success 




ixjp 


bp 




ret 







wi sr: 



nov 



ax, fail 
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pep 


bp 


ret 




rdstatus endp 




.**************************************** 


; reset tape 


unit - c function 


t_reset() 


t_reset proc 


near 


nov 


dx,ctlport ; reset 


mov 


al, reset 


out 


dx,al 


mov 


cx,1000h ; delay 


dr: loop 


dr 


mov 


al,cndoff ;un-reset 


out 


dx,al 


mov 


ax, success 


ret 




t_reset &\dp 





**************************************** 
performs handshake to seid oomnand 

destroys al,dx 



sendcmd proc 


near 




mov 


dx,ctlport 


;set request 


IIDV 


al, request 




or 


al,mbits 




out 


dx,al 




nov 


dx,statport 


;wait ready 


sw: in 


al,dx 




test 


al, ready 




jnz 


sw 




mov 


dx,ctlport 


; reset request 


nov 


al,request_off 




and 


al,id3its 




out 


dx,al 




mov 


dx,stat5»rt 


;wait not read 


sn: in 


al,dx 




test 


al, ready 




J2 


sn 




ret 






sendand end^ 







.**************************************** 

include \c86\epilogue.h 
end 
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** Program Nane: 
** Author: 
** Creation date: 
** Description: 

** 

** Called by: 

** Revision History: 



/ 
**/ 

**/ 

**/ 

**/ 

**/ 



TULIBl.ASM 

Tony Sotery 

12/14/84 

Ihis module contains four najor procedures: 

RTAPE: Read X nunber of blocks from the tape 

drive and save it in the address given in ds:bx **/ 

Wtape: Write x number of blocks fran the nemory **/ 

buffer addressed by ds:bx. **/ 

laUNIT: Is used to get the "C" progran's "DS". **/ 

ISR: Is the interrupt service routine, it sets 

up the dma and starts dma. 

RIAPE: Most be called by the "C" oroaram. 

WERPE: Mist be called t^ the "C" jarogram. 

ISilNIT nust be called by the "C" progran. 

ISR is internet drivai. 



**/ 
**/ 
**/ 
**/ 
**/ 
**/ 
**/ 
**/ 
**/ 



Version 2.00 
******************* ***********************#***j^jk^^^^j^^^^^^^^^^^^^^^^^^^^^' 

include \c86Nflcdels.h 
include \c86Ni»rologue.h 
include tulib.def 



@code segment byte public 'code' 

public vtage ;read x blocks 
public wt^e ;write x blocks 
public isr 
public isrinit 

**************************************** 
read x block - c function 

rtape ( buffer , blkcount ) 



rt^je 


proc 


near 




push 


bp 




mov 


IPrSp 




mov 


ax,[hp].argl 




mov 


bufptr,ax 




mov 


ax,[bf>].arg2 




mov 


nuiiblock,cuc 




mov 


ax,0 




mov 


wci,0 




nov 


ax, dma read 




mov 


mode,ax 




call 


rdyexc 




test 


al,exc6p 




J2 


r done 




nov 


hx,bufptr 




call 


ckna 


rloop2: 




exceptio,l 




J2 


r_done 




Clip 


wci,l 




jnz 


rloc^ 


r_done: 








pup 


bp 




ret 




rtape 


&tdp 





buffer area for the data transfered 
set the pointer to the buffer area 
number of blocks to be transfered 



clear wci (word count interupt) 
set the dma mode to read 

check if reac^ or exception have oocured 
if exertion then done 

set the address for the dna 

Start the dma 

vait for either exception 

or wci interrupt 



XXItXK******** *************************** 
write block - C function 

wtape( buffer , blkocxint ) 

char *buffer /* segptent addr */ 

int blkcount /* nunter of block to wri*-" 
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wtape 


proc 


near 








push 


bp 








IlOV 


tp,sp 








nov 


ax,[bp].argl 


• 


get the buffer address 




mov 


bufptr ,ax 


r 


set the buffer address 




nov 


ax,[bp].arg2 


) 


get the number of blocks 




mov 


nunt)lock,ax 


• 


set the nuirber of blocks 




ncv 


ax,0 








nov 


vx:i,ax 


1 


clear the wci 




nov 


ax,dma_write 


f 


set the dna mode to write 




nov 


uijde.ax 








call 


rdyexc 








test 


al,exc^ 








jz 


w_done 


r 


chk exception 




mov 


tut, bufptr 


i 


set the dna buffer address 




call 


dna 


7 


set the dna and started 


lop2: 


Clip 

jz 


except io,l 
w done 


• 


vait for exception or. 






wci,l 


f 


vici from the ISl 




jnz 


lop2 






w_done: 












pop 
ret 


bp 






wt^>e 


&idg 









********************************* 
dma: set ip dna address 

and transfer 512 bytes 

ds:bx = transfer address 
destroys ax,cx,dx 
dma proc near 



push 


es 


push 


ex 


cli 




mov 


ax, mode 


cut 


clearff,al 


jrap 


$+2 


out 


modereg,al 


mov 


ax,ds 


mov 


es,ax 


mov 


ax,es 


mov 


cl,4 


rol 


ax,cl 


mov 


ch,al 


and 


al,OfOh 


add 


ax,bx 


jnc 


J33 


inc 


di 


j33: 




push 


ax 


out 


addreg,al 


jnp 


$+2 


mov 


al,ah 


cut 


3ddreg,3l 


mov 


al,ch 


jnp 


$+2 


and 


al,Ofh 


out 


pagereg,al 


.•determine count 


pop 


ax 


add 


ax, 511 


mov 


ax, 511 



; clear first/last f/f , so lower and upper 
; out^t the mode byte 



; get current segneit address 
; nultiply by 16 



; zero out the low four bits 

; if addition produce carray, inc page reg. 

; output low address 
; output high address 

; output high 4 bits to the page reg 
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dna 



out 
jnp 
nov 
out 
sti 
pop 
pep 
nov 
nov 
out 
nov 
out 
ret 



vx:reg,al 
$+2 
al,ah 
vx:reg,al 



;output low byte of count 



;output high byte of count 



ex 

es 

cbcctlport 

al,eqi±na-K3nline 

cbc,al ; inform host to enable dma on chan 1. 

al,l ;enable channel 1 ccninand to dma 

naskreg,al ; start dna 



; The follcwing routine saves the calling "C" program's "DS" for the interrupt 
; service routine use. It is used for accessing "C global variable from 
; an assembler routine. Itiis procedure mist be called during initialization. 

isrinit proc near 

nov ax,ds 

nov cs:our_ds,ax 

ret 
isrinit endg 



our_ds dw 
save_ds dw 
save_ss dw 
save_sp dw 
tenp_ds dw 
block dw 












local wari^le for storing caller's "DS". 
save the "DS" of whoever we have interrupted. 



isr proc near 

push bp 

mov cs:save_ds,ds 

nov dS/Cs:our_ds 

nov cs:save_ss,ss 

nov cs:save~^,sp 

nov te!^_ds,(^ 

mov ss,tenp_ds 

mov ^,stack 

push cuc 

push bx 

push at. 

push dx 

Sti 

OQV al,2(£i 

cut 20h,al 

mc3v dx,stat^rt 

in al,dx 

test al,excqp 

jz excexit 

nov exceptio,0 

nov dXfCtlport 

nov al, online 

out dx,al 

nov cx;Cs:blcck 

inc ex 

mov cs:block,cx 

anp cx,niinblock 

je setwci 

jnp setdma 
exoexit: 



save the "DS" of v*cever was interrupted, 
load the C program's "DS" into ours, 
save the stack informations. 

set stack to data segnent. 



; send eoi 



; test for execpticn 

; if exception then exit 

; else no exoeptii^ 

; disable dna on the everex board 



; block is for tracking nunber of blocks transfer 
; since last wci 



; if blocks transfer equcLLs the intended set wci and exit 
; else setup next dna cycle 
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exit: 



setwci: 



setdne: 



done: 



isr 



wov 


ex, cs: block 


inc 


ex 




cx,naiiblock 


jne 


exit 


mov 


wci,l 


IIDV 


except io,l 


nov 


cs:block,0 


jmp 


done 


nov 


cs:block,0 


mov 


wci,l 


nov 


al,4+chan 


out 


maskreg,al 


jnp 


done 


add 


bufptr,blksiz( 


mov 


hx,bufptr 


call 


dfna 


jjup 


dx 


pop 


ex 


yu\} 


bx 


^ap 


ax 


mov 


ss,cs:save ss 


nov 


^,cs:save_sp 


mov 


ds,cs:save_ds 


pop 


bp 


iret 




eiv^ 





exception true 



; clear block counter 

; set vsi tris 

; disable dna en the 8237 



r 

; rdyexc vait for ready or exception 



rdyexc 


proc 


near 






mov 


dx,statport 


;wait for ready 


rdex: 


in 


al,dx 






test 


cd,excep 


;c±k exertion 




jz 


erdex 


;end the proc 




test 


al,rea<^ 


;is it ready 




jnz 


rdex 


;loop if it is not ready 


erdex: 


ret 




;retiu:n to the cedler 


rdyexc 


enc|p 







include \c86\epilogue.h 
end 



